home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 April / CMCD0404.ISO / Software / Shareware / Multimedia / extrememov / extrememm2.6b3sharefull.exe / {app} / scripts / [MOVIES.GO.COM] - (Movie Info Import)@Cof 30_04_2003.txt < prev    next >
Encoding:
Text File  |  2003-04-30  |  20.9 KB  |  851 lines
  1. -----------------------------------------------
  2. -                 DivxManager                 -
  3. -            MagicScript Technology           -
  4. -          2002 Alessio "AleTsg" Viti         -
  5. -----------------------------------------------
  6. - Web :      MOVIES.GO.COM                    -
  7. - Autor :    Cof (cof24@poczta.onet.pl)       -
  8. - Date  :    30/04/2003                       -
  9. - Comments : Import Information if available  _
  10. -                                             _
  11. -----------------------------------------------
  12.  
  13.  
  14. #MADEBY#=Cof (cof24@poczta.onet.pl)
  15. #DATEBUILD#=23/04/2003
  16. #WEBSITE#=MOVIES.GO.COM
  17. #NOTE#=Import Additional Info Only. Lot of movie don't have a plot :( (NO DIRECT PAGE WILL FOUND)
  18. #SCRIPTQUALITY#=3
  19. #SCRIPTGENERATION#=2
  20.  
  21.  
  22.  
  23.  
  24. zmienna 50 - oryginal title
  25. zmienna 49 - director
  26. zmienna 48 - actor
  27. zmienna 47 - genre (rodzaj)
  28. zmienna 46 - rating (ocena)
  29. zmienna 45 - comments
  30. zmienna 44 - plot
  31. zmienna 43 - runtime
  32. zmienna 42 - year
  33. zmienna 41 - country
  34. zmienna 40 - movie site id
  35. zmienna 39 - language
  36. zmienna 38 - web link
  37. zmienna 37 - producer
  38. zmienna 36 - writer
  39. zmienna 35 - music
  40. zmienna 34 - region
  41. zmienna 33 - edition
  42. zmienna 32 - screen DVD
  43. zmienna 31 - audio DVD
  44. zmienna 30 - tag line
  45. zmienna 29 - photographer
  46. zmienna 28 - studio
  47. zmienna 27 - MPAA
  48. zmienna 26 - distributor
  49. zmienna 25 - official web
  50.  
  51. zmienna 04 - end string
  52. zmienna 03 - start string
  53. zmienna 02 - const. = 0
  54. zmienna 01 - szukanie = 0/1
  55.  
  56.  
  57.  
  58. #WEBQUERY#=http://movies.go.com/movieSearch?search=#MOVIE#&st=1&col=movrev
  59.            
  60.  
  61.  
  62.  
  63. -------------------------------------------------------------------------------------------------------------------
  64. #CREATEMOVIELIST#
  65.     #PUT#=0#02#
  66.     #STARTREADWEB#
  67.     #FINDLINE#=No results found#01##ONERROR#=*OK*
  68.     #IF# #01#<>#02#
  69.         #WRITETITLELIST#=
  70.         #WRITETITLELIST#=NO MOVIE IN DATABASE
  71.         #WRITETITLELIST#=TRY FIND PART OF NAME
  72.  
  73.     #GOTO#=ENDOTHERMOVIE
  74.     #ENDIF#
  75.     #STARTREADWEB#
  76.     #WRITETITLELIST#=TAKE ONE FROM THE LIST: (note: this script never find direct page. If You find URL to this page that can go dirlectly to movie page - write me)
  77.     #WRITETITLELIST#=---------------------
  78.     #FINDLINE#=<!--------- end insert chrome ----------->#01##ONERROR#=*OK*
  79.     #REPEAT#
  80.         #FIND#=<tr><td class="text11"><a href="#03##ONERROR#=*STOP* 
  81.         #FIND#=href="#03##ONERROR#=*STOP*
  82.         #FIND#="#03##ONERROR#=*STOP*
  83.         #FIND#=">#04##ONERROR#=*STOP*
  84.         #TAKEWORD#=#05#,#03#,#04#
  85.         #FIND#=>#03# #ONERROR#=*STOP*
  86.         #FIND#=</td>#04# #ONERROR#=*STOP*
  87.         #TAKEWORD#=#06#,#03#,#04#
  88.         #CHECKVARIABLE#=#06#
  89.         #STARTSUBSTITUTETAGS#  
  90.         #WRITETITLELIST#=#05#    ---> #06#
  91.     #PUT#=0#12#
  92.     #FIND#=<tr><td class="text11"><a href="#12##ONERROR#=*OK*
  93.     #WHILE# #02#<>#12#
  94.     #STARTREADWEB#
  95.     #FINDLINE#=Main Results for#01#ONERROR#=*OK*
  96.     #IF# #01#<>#02#
  97.         #FIND#=</b></a> | <a href="#03##ONERROR#=*STOP*
  98.         #FIND#="#03##ONERROR#=*STOP*
  99.         #FIND#=">#04##ONERROR#=*STOP*
  100.         #TAKEWORD#=#07#,#03#,#04#
  101.         #STRING#=#10#=http://movies.go.com/#07#
  102.         #OPENNEWWEB#=#10#
  103.        
  104.         #FINDLINE#=<!--------- end insert chrome ----------->#01##ONERROR#=*OK*
  105.      #REPEAT#
  106.         #FIND#=<tr><td class="text11"><a href="#03##ONERROR#=*STOP* 
  107.         #FIND#=href="#03##ONERROR#=*STOP*
  108.         #FIND#="#03##ONERROR#=*STOP*
  109.         #FIND#=">#04##ONERROR#=*STOP*
  110.         #TAKEWORD#=#05#,#03#,#04#
  111.         #FIND#=>#03# #ONERROR#=*STOP*
  112.         #FIND#=</td>#04# #ONERROR#=*STOP*
  113.         #TAKEWORD#=#06#,#03#,#04#
  114.         #CHECKVARIABLE#=#06#
  115.         #STARTSUBSTITUTETAGS#  
  116.         #WRITETITLELIST#=#05#    ---> #06#
  117.         #PUT#=0#12#
  118.         #FIND#=<tr><td class="text11"><a href="#12##ONERROR#=*OK*
  119.     #WHILE# #02#<>#12#
  120.          #RESTOREWEB#
  121.        
  122.     #ENDIF#   
  123.  :ENDOTHERMOVIE 
  124.    
  125. #ENDCREATEMOVIELIST#
  126.  
  127.  
  128. -------------------------------------------------------------------------------------------------------------------
  129. #MOVIETITLE#
  130.        
  131.         #FINDLINE#="3">   <i><b>#01##ONERROR#=*STOP*
  132.         #FIND#="3">   <i><b>#03# #ONERROR#=*STOP*
  133.         #FIND#=B>#03#
  134.         #FIND#=>#03#
  135.         #FIND#=&n#04# #ONERROR#=*STOP*
  136.         #TAKEWORD#=#50#,#03#,#04# 
  137.         #CHECKVARIABLE#=#50#
  138.         #STARTSUBSTITUTETAGS#  
  139.         
  140.         #TITLE#=#50# #ONERROR#=*ASK*
  141.         
  142.  
  143.  
  144. ========================================================================================  COUNTRY
  145.  
  146. #COUNTRY#
  147.  
  148.         #STARTREADWEB# 
  149.         #FINDLINE#=>Country#01# #ONERROR#=*OK*
  150.  
  151.         #IF# #01#==#02#
  152.                 #GOTO#=NOCOUNTRY
  153.         #ENDIF#
  154.  
  155.  
  156.         #FIND#=>Country#03# #ONERROR#=*STOP* 
  157.         #FIND#=r>#03# #ONERROR#=*STOP*
  158.         #FIND#= #03# #ONERROR#=*STOP*
  159.         #FIND#=<br>#04# #ONERROR#=*STOP*
  160.         #TAKEWORD#=#41#,#03#,#04#
  161.         #CHECKVARIABLE#=#41#
  162.         #STARTSUBSTITUTETAGS#  
  163.         #CHECKVARIABLE#=#41#
  164.         #STARTDELETETAGS#  
  165.         
  166.         #TAKECOUNTRY#=#41#
  167.  :NOCOUNTRY
  168. #ENDCOUNTRY#
  169.  
  170. ========================================================================================  YEAR
  171.  
  172. #YEAR#
  173.          
  174.         #STARTREADWEB#
  175.         #FINDLINE#="3">   <i><b>#01##ONERROR#=*STOP*
  176.         #FIND#="3">   <i><b>#03# #ONERROR#=*STOP*
  177.         #FIND#=b>#03#
  178.         #FIND#=(#03#
  179.         #FIND#=)#04# #ONERROR#=*STOP*
  180.         #TAKEWORD#=#42#,#03#,#04#
  181.         
  182.         #TAKEYEAR#=#42#
  183.  
  184.                
  185.  :NOYEAR
  186.  
  187. #ENDYEAR#
  188.  
  189. ========================================================================================  RUNTIME
  190.  
  191. #RUNTIME#
  192.         #STARTREADWEB#
  193.         #FINDLINE#=>Running Time#01# #ONERROR#=*OK*
  194.  
  195.         #IF# #01#==#02#
  196.                 #GOTO#=NORUNTIME
  197.         #ENDIF#
  198.         #FIND#=minutes#08# #ONERROR#=*STOP*
  199.         #STARTREADWEB#
  200.         #FINDLINE#=>Running Time#01# #ONERROR#=*OK*
  201.         #FIND#=Running Time#03# #ONERROR#=*STOP* 
  202.       
  203.         #FIND#=>#06# #ONERROR#=*STOP*
  204.         #COMPUTECURSOR#=+1
  205.         #FIND#=>#07# #ONERROR#=*STOP*
  206.           #IF# #07#>>#08#
  207.                #STRING#=#03#=#06#
  208.                #COMPUTECURSOR#=-3
  209.                #PUTCURSOR#=#04#   
  210.           #ENDIF#
  211.  
  212.           #IF# #07#<<#08#
  213.                #STRING#=#03#=#07#
  214.                #FIND#=<br>#04# #ONERROR#=*STOP*         
  215.           #ENDIF#
  216.  
  217.         #TAKEWORD#=#43#,#03#,#04#
  218.         #CHECKVARIABLE#=#43#
  219.         #STARTDELETETAGS#          
  220.         #TAKERUNTIME#=#43#
  221.  :NORUNTIME
  222. #ENDRUNTIME#
  223.  
  224. ===============================================================================================  STUDIO
  225.  
  226. #STUDIO# 
  227.         #STARTREADWEB# 
  228.         #FINDLINE#=>Studio#01# #ONERROR#=*OK*
  229.  
  230.         #IF# #01#==#02#
  231.                 #GOTO#=NOSTUDIO
  232.         #ENDIF#
  233.  
  234.  
  235.         #FIND#=>Studio#03# #ONERROR#=*STOP* 
  236.         #FIND#=b>#03# #ONERROR#=*STOP*
  237.         #FIND#= #03# #ONERROR#=*STOP*
  238.         #FIND#=<br>#04# #ONERROR#=*STOP*
  239.  
  240.  
  241.         #TAKEWORD#=#28#,#03#,#04#
  242.         #CHECKVARIABLE#=#28#
  243.         #STARTSUBSTITUTETAGS#  
  244.         
  245.         #TAKESTUDIO#=#28#
  246.  
  247.  :NOSTUDIO
  248.  
  249. #ENDSTUDIO#
  250. ===============================================================================================  MPAA
  251.  
  252. #MPAA# 
  253.         #STARTREADWEB# 
  254.         #FINDLINE#=>MPAA Rating#01# #ONERROR#=*OK*
  255.  
  256.         #IF# #01#==#02#
  257.                 #GOTO#=NOMPAA
  258.         #ENDIF#
  259.  
  260.  
  261.         #FIND#=>MPAA Rating#03# #ONERROR#=*STOP* 
  262.         #FIND#=r>#03# #ONERROR#=*STOP*
  263.         #FIND#= #03# #ONERROR#=*STOP*
  264.         #FIND#=<br>#04# #ONERROR#=*STOP*
  265.  
  266.  
  267.         #TAKEWORD#=#27#,#03#,#04#
  268.         #CHECKVARIABLE#=#27#
  269.         #STARTSUBSTITUTETAGS#  
  270.         #CHECKVARIABLE#=#27#
  271.         #STARTDELETETAGS#
  272.         #TAKEMPAA#=#27#
  273.  
  274.  :NOMPAA
  275.  
  276. #ENDMPAA#
  277. #ENDMOVIETITLE#
  278.  
  279. ====================================================================================================== DIRECTOR
  280.  
  281. #DIRECTOR# 
  282.         #STARTREADWEB# 
  283.         #FINDLINE#=Director(s)#01# #ONERROR#=*OK*
  284.  
  285.         #IF# #01#==#02#
  286.                 #GOTO#=NODIRECTOR
  287.         #ENDIF#
  288.            
  289.         #FIND#=Director(s)#03# #ONERROR#=*STOP* 
  290.         #FIND#=b>#03# #ONERROR#=*STOP*
  291.         #FIND#= #03# #ONERROR#=*STOP*
  292.         #FIND#=<br>#04# #ONERROR#=*STOP*
  293.         #TAKEWORD#=#49#,#03#,#04#
  294.         #CHECKVARIABLE#=#49#
  295.         #STARTSUBSTITUTETAGS#  
  296.         
  297.         #TAKEDIRECTOR#=#49#
  298.  
  299.  
  300.  :NODIRECTOR
  301. #ENDDIRECTOR#
  302.  
  303.  
  304. ===============================================================================================  WRITER
  305.  
  306. #WRITER# 
  307.         #STARTREADWEB# 
  308.         #FINDLINE#=Screenwriter(s)#01# #ONERROR#=*OK*
  309.  
  310.         #IF# #01#==#02#
  311.                 #GOTO#=NOWRITER
  312.         #ENDIF#
  313.  
  314.  
  315.         #FIND#=Screenwriter(s)#03# #ONERROR#=*STOP* 
  316.         #FIND#=b>#03# #ONERROR#=*STOP*
  317.         #FIND#= #03# #ONERROR#=*STOP*
  318.         #FIND#=<br>#04# #ONERROR#=*STOP*
  319.  
  320.  
  321.         #TAKEWORD#=#36#,#03#,#04#
  322.         #CHECKVARIABLE#=#36#
  323.         #STARTSUBSTITUTETAGS#  
  324.         
  325.         #TAKEWRITER#=#36#
  326.  
  327.  :NOWRITER
  328.  
  329. #ENDWRITER#
  330.  
  331.  
  332. ========================================================================================  ACTORS & OTHERS
  333.  
  334. #ACTORS#        
  335.  
  336.         #STARTREADWEB# 
  337.         #FINDLINE#=cast and crew#01# #ONERROR#=*OK*
  338.  
  339.  #IF# #01#<>#02#
  340.          #GOTO#=NOCREWPAGE
  341.  #ENDIF#
  342.  
  343.         #STARTREADWEB# 
  344.         #FINDLINE#=<!-------------- Cast & Credits Button ---------->#01# #ONERROR#=*OK*
  345.         #FIND#=href="#03# #ONERROR#=*STOP* 
  346.         #FIND#="#03# #ONERROR#=*STOP*
  347.         #FIND#=">#04# #ONERROR#=*STOP*
  348.         #TAKEWORD#=#05#,#03#,#04#
  349.         #STRING#=#06#=http://movies.go.com#05#
  350.  
  351.    #OPENNEWWEB#=#06#
  352.         #STARTREADWEB#
  353.         #FINDLINE#=Director(s):#01# #ONERROR#=*STOP*
  354.         #FIND#=Director(s):#10# #ONERROR#=*STOP*
  355.         #STARTREADWEB#
  356.         #FINDLINE#=<!---- BEGIN CREDITS ------->#01# #ONERROR#=*OK*
  357.         #PUT#=0#01#
  358.     #REPEAT#  
  359.         #FIND#="><font face="verdana,arial,helvetica" size="1">#03# #ONERROR#=*STOP* 
  360.         #FIND#="1"#03# #ONERROR#=*STOP*
  361.         #FIND#=>#03# #ONERROR#=*STOP*
  362.         #COMPUTECURSOR#=+20
  363.         #PUTCURSOR#=#03#
  364.         #FIND#=<#04# #ONERROR#=*STOP*       
  365.         
  366.         #TAKEWORD#=#48#,#03#,#04#
  367.         #CHECKVARIABLE#=#48#
  368.         #STARTSUBSTITUTETAGS#  
  369.         #CHECKVARIABLE#=#48#
  370.         #ADDACTOR#=#48#
  371.         #TAKEACTOR#=#48#
  372.         
  373.         #FIND#="><font face="verdana,arial,helvetica" size="1">#06# #ONERROR#=*STOP*
  374.         #IF# #06#>>#10#
  375.              #PUT#=1#01#
  376.         #ENDIF#
  377.     #WHILE# #01#==#02#        
  378.  
  379.  
  380. ----------- PRODUCER
  381.  
  382. #PRODUCER#
  383. #STARTREADWEB#
  384.         #FINDLINE#=>Producer(s):#01# #ONERROR#=*STOP*
  385.         #FIND#="1"><BR>#10# #ONERROR#=*STOP*
  386.         #STARTREADWEB#
  387.         #FINDLINE#=>Producer(s):#01# #ONERROR#=*OK*
  388.         #IF# #01#==#02#
  389.                 #GOTO#=NOPRODUCER
  390.         #ENDIF#        
  391.         #PUT#=0#01#
  392.     #REPEAT#  
  393.         #FIND#="><font face="verdana,arial,helvetica" size="1">#03# #ONERROR#=*STOP* 
  394.         #FIND#="1"#03# #ONERROR#=*STOP*
  395.         #FIND#=>#03# #ONERROR#=*STOP*
  396.         #COMPUTECURSOR#=+10
  397.         #PUTCURSOR#=#03#
  398.         #FIND#=<#04# #ONERROR#=*STOP*       
  399.         
  400.         #TAKEWORD#=#37#,#03#,#04#
  401.         #CHECKVARIABLE#=#37#
  402.         #STARTSUBSTITUTETAGS#  
  403.         #CHECKVARIABLE#=#37#
  404.         #TAKEPRODUCER#=#37#
  405.         
  406.         #FIND#="><font face="verdana,arial,helvetica" size="1">#06# #ONERROR#=*STOP*
  407.         #IF# #06#>>#10#
  408.              #PUT#=1#01#
  409.         #ENDIF#
  410.     #WHILE# #01#==#02#        
  411.  :NOPRODUCER
  412. #ENDPRODUCER#
  413.  
  414. ----------- PHOTOGRAPHER
  415.  
  416. #PHOTOGRAPHER#
  417. #STARTREADWEB#
  418.         #FINDLINE#=>Cinematography:#01# #ONERROR#=*STOP*
  419.         #FIND#="1"><BR>#10# #ONERROR#=*STOP*
  420.         #STARTREADWEB#
  421.         #FINDLINE#=>Cinematography:#01# #ONERROR#=*OK*
  422.         #IF# #01#==#02#
  423.                 #GOTO#=NOPHOTOGR
  424.         #ENDIF#
  425.         #PUT#=0#01#
  426.     #REPEAT#  
  427.         #FIND#="><font face="verdana,arial,helvetica" size="1">#03# #ONERROR#=*STOP* 
  428.         #FIND#="1"#03# #ONERROR#=*STOP*
  429.         #FIND#=>#03# #ONERROR#=*STOP*
  430.         #COMPUTECURSOR#=+10
  431.         #PUTCURSOR#=#03#
  432.         #FIND#=<#04# #ONERROR#=*STOP*       
  433.         
  434.         #TAKEWORD#=#29#,#03#,#04#
  435.         #CHECKVARIABLE#=#29#
  436.         #STARTSUBSTITUTETAGS#  
  437.         #CHECKVARIABLE#=#29#
  438.         #TAKEPHOTOGRAPHER#=#29#
  439.         
  440.         #FIND#="><font face="verdana,arial,helvetica" size="1">#06# #ONERROR#=*STOP*
  441.         #IF# #06#>>#10#
  442.              #PUT#=1#01#
  443.         #ENDIF#
  444.     #WHILE# #01#==#02#
  445.  :NOPHOTOGR
  446. #ENDPHOTOGRAPHER#
  447.  
  448. ----------- EDITION
  449.  
  450. #EDITION#
  451. #STARTREADWEB#
  452.         #FINDLINE#=>Editing:#01# #ONERROR#=*STOP*
  453.         #FIND#="1"><BR>#10# #ONERROR#=*STOP*
  454.         #STARTREADWEB#
  455.         #FINDLINE#=>Editing:#01# #ONERROR#=*OK*
  456.         #IF# #01#==#02#
  457.                 #GOTO#=NOEDITION
  458.         #ENDIF#
  459.         #PUT#=0#01#
  460.     #REPEAT#  
  461.         #FIND#="><font face="verdana,arial,helvetica" size="1">#03# #ONERROR#=*STOP* 
  462.         #FIND#="1"#03# #ONERROR#=*STOP*
  463.         #FIND#=>#03# #ONERROR#=*STOP*
  464.         #COMPUTECURSOR#=+10
  465.         #PUTCURSOR#=#03#
  466.         #FIND#=<#04# #ONERROR#=*STOP*       
  467.         
  468.         #TAKEWORD#=#33#,#03#,#04#
  469.         #CHECKVARIABLE#=#33#
  470.         #STARTSUBSTITUTETAGS#  
  471.         #CHECKVARIABLE#=#33#
  472.         #TAKEEDITION#=#33#
  473.         
  474.         #FIND#="><font face="verdana,arial,helvetica" size="1">#06# #ONERROR#=*STOP*
  475.         #IF# #06#>>#10#
  476.              #PUT#=1#01#
  477.         #ENDIF#
  478.     #WHILE# #01#==#02#
  479.  :NOEDITION
  480. #ENDEDITION# 
  481.  
  482. ----------- MUSIC
  483.  
  484. #MUSIC#
  485. #STARTREADWEB#
  486.         #FINDLINE#=>Music Composer:#01# #ONERROR#=*STOP*
  487.         #FIND#="1"><BR>#10# #ONERROR#=*STOP*
  488.         #STARTREADWEB#
  489.         #FINDLINE#=>Music Composer:#01# #ONERROR#=*OK*
  490.         #IF# #01#==#02#
  491.                 #GOTO#=NOMUSIC
  492.         #ENDIF#
  493.         #PUT#=0#01#
  494.     #REPEAT#  
  495.         #FIND#="><font face="verdana,arial,helvetica" size="1">#03# #ONERROR#=*STOP* 
  496.         #FIND#="1"#03# #ONERROR#=*STOP*
  497.         #FIND#=>#03# #ONERROR#=*STOP*
  498.         #COMPUTECURSOR#=+10
  499.         #PUTCURSOR#=#03#
  500.         #FIND#=<#04# #ONERROR#=*STOP*       
  501.         
  502.         #TAKEWORD#=#35#,#03#,#04#
  503.         #CHECKVARIABLE#=#35#
  504.         #STARTSUBSTITUTETAGS#  
  505.         #CHECKVARIABLE#=#35#
  506.         #TAKEMUSIC#=#35#
  507.         
  508.         #FIND#="><font face="verdana,arial,helvetica" size="1">#06# #ONERROR#=*STOP*
  509.         #IF# #06#>>#10#
  510.              #PUT#=1#01#
  511.         #ENDIF#
  512.     #WHILE# #01#==#02#
  513.  
  514. :NOMUSIC
  515. #ENDMUSIC#
  516.  
  517. -----------
  518. #RESTOREWEB#
  519.    #GOTO#=NOACTORS
  520.  
  521. :NOCREWPAGE 
  522.      #STARTREADWEB# 
  523.         #FINDLINE#=>Starring#01# #ONERROR#=*OK*
  524.  
  525.         #IF# #01#==#02#
  526.                 #GOTO#=NOACTORS
  527.         #ENDIF#
  528.  
  529.  
  530.         #FIND#=>Starring#03# #ONERROR#=*STOP* 
  531.         #FIND#=b>#03# #ONERROR#=*STOP*
  532.         #FIND#=>#03# #ONERROR#=*STOP*
  533.         #FIND#=<#08# #ONERROR#=*STOP*
  534.         #COMPUTEVAR#=#08#=-1
  535.  
  536.      #STARTREADWEB#   
  537.         #FINDLINE#=>Starring#01# #ONERROR#=*OK*    
  538.         #FIND#=>Starring#03# #ONERROR#=*STOP* 
  539.         #FIND#=b>#03# #ONERROR#=*STOP*
  540.         #FIND#=>#03# #ONERROR#=*STOP*
  541.         #COMPUTECURSOR#=+1
  542.         #PUTCURSOR#=#03#
  543. #PUT#=0#01#
  544.     #REPEAT#     
  545.  
  546.         #FIND#=,#04# #ONERROR#=*STOP*
  547.           #IF# #04#>>#08#
  548.             #STRING#=#04#=#08#
  549.             #PUT#=1#01#
  550.           #ENDIF#
  551.  
  552.         #TAKEWORD#=#48#,#03#,#04#
  553.         #CHECKVARIABLE#=#48#
  554.         #STARTSUBSTITUTETAGS#  
  555.         #CHECKVARIABLE#=#48#
  556.         #ADDACTOR#=#48#
  557.         #TAKEACTOR#=#48#        
  558.  
  559.         #FIND#= #03# #ONERROR#=*STOP*
  560.  
  561.     #WHILE# #01#==#02#
  562.  
  563.  
  564.  
  565.  :NOACTORS
  566.  
  567. #ENDACTORS#
  568.  
  569. ============================================================================================
  570. PLOT
  571. #PLOT#
  572.         #STARTREADWEB# 
  573.         #FINDLINE#=<!--Overview Table START-->#01# #ONERROR#=*OK*
  574.  
  575.         #IF# #01#==#02#
  576.                 #GOTO#=NOPLOT
  577.         #ENDIF#
  578.  
  579.  
  580.         #FIND#=<font face="Verdana,Arial,Helvetica" size="1">#03# #ONERROR#=*STOP* 
  581.         #FIND#="1"#03# #ONERROR#=*STOP*
  582.         #FIND#=>#03# #ONERROR#=*STOP*
  583.         #FIND#=<#04# #ONERROR#=*STOP*
  584.  
  585.  
  586.         #TAKEWORD#=#44#,#03#,#04#
  587.         #CHECKVARIABLE#=#44#
  588.         #STARTSUBSTITUTETAGS#  
  589.         #CHECKVARIABLE#=#44#
  590.         #STARTDELETETAGS#        
  591.         #TAKEPLOT#=#44#
  592.  :NOPLOT
  593. #ENDPLOT#
  594.  
  595. ===============================================================================================  GENRE
  596.  
  597.  
  598. #GENRE#
  599.         #STARTREADWEB# 
  600.         #FINDLINE#=>Genre#01# #ONERROR#=*OK*
  601.  
  602.         #IF# #01#==#02#
  603.                 #GOTO#=NOGENRE
  604.         #ENDIF#
  605.  
  606.  
  607.         #FIND#=>Genre#03# #ONERROR#=*STOP* 
  608.         #FIND#=r>#03# #ONERROR#=*STOP*
  609.         #FIND#=>#03# #ONERROR#=*STOP*
  610.         #FIND#=<br>#09# #ONERROR#=*STOP*
  611.  
  612.         #STARTREADWEB# 
  613.         #FINDLINE#=>Genre#01# #ONERROR#=*STOP*  
  614.         #FIND#=>Genre#03# #ONERROR#=*STOP* 
  615.         #FIND#=r>#03# #ONERROR#=*STOP*
  616.         #FIND#=>#03# #ONERROR#=*STOP*
  617.             
  618.         #PUT#=0#01#
  619.      #REPEAT#
  620.  
  621.           #FIND#=,#08# #ONERROR#=*STOP*
  622.           #IF# #08#>>#09#
  623.                #STRING#=#04#=#09#
  624.                #PUT#=1#01#
  625.           #ENDIF#
  626.  
  627.           #IF# #08#<<#09#
  628.                #STRING#=#04#=#08#
  629.           #ENDIF#
  630.  
  631.         #TAKEWORD#=#47#,#03#,#04#
  632.         #CHECKVARIABLE#=#47#
  633.         #STARTSUBSTITUTETAGS#  
  634.         #CHECKVARIABLE#=#47#
  635.         #STARTDELETETAGS#        
  636.         #TAKEGENRE#=#47#
  637.  
  638.         #FIND#= #03# #ONERROR#=*STOP*
  639.  
  640.      #WHILE# #01#==#02#
  641.  
  642.  :NOGENRE
  643.   
  644. #ENDGENRE#
  645.  
  646. *********************************************************************************************************************
  647. =====================================================================================================================
  648. #SUBSTITUTETAGS#
  649.                         
  650.  
  651.     #SUBSTITUTEWORD#=—=-
  652.     #SUBSTITUTEWORD#=¡=í
  653.     #SUBSTITUTEWORD#=¢=ó
  654.     #SUBSTITUTEWORD#=£=ú
  655.     #SUBSTITUTEWORD#=¤=ñ
  656.     #SUBSTITUTEWORD#=¥=Ñ
  657.     #SUBSTITUTEWORD#=¦=ª
  658.     #SUBSTITUTEWORD#=§=º
  659.     #SUBSTITUTEWORD#=¨=¿
  660.     #SUBSTITUTEWORD#=©=⌐
  661.     #SUBSTITUTEWORD#=ª=¬
  662.     #SUBSTITUTEWORD#=«=½
  663.     #SUBSTITUTEWORD#=¬=¼
  664.     #SUBSTITUTEWORD#=­=¡
  665.     #SUBSTITUTEWORD#=®=«
  666.     #SUBSTITUTEWORD#=¯=»
  667.     #SUBSTITUTEWORD#=°=░
  668.     #SUBSTITUTEWORD#=±=▒
  669.     #SUBSTITUTEWORD#=²=▓
  670.     #SUBSTITUTEWORD#=³=│
  671.     #SUBSTITUTEWORD#=´=┤
  672.     #SUBSTITUTEWORD#=µ=╡
  673.     #SUBSTITUTEWORD#=¶=╢
  674.     #SUBSTITUTEWORD#=·=╖
  675.     #SUBSTITUTEWORD#=¸=╕
  676.     #SUBSTITUTEWORD#=¹=╣
  677.     #SUBSTITUTEWORD#=º=║
  678.     #SUBSTITUTEWORD#=»=╗
  679.     #SUBSTITUTEWORD#=¼=╝
  680.     #SUBSTITUTEWORD#=½=╜
  681.     #SUBSTITUTEWORD#=¾=╛
  682.     #SUBSTITUTEWORD#=¿=┐
  683.     #SUBSTITUTEWORD#=À=└
  684.     #SUBSTITUTEWORD#=Á=┴
  685.     #SUBSTITUTEWORD#=Â=┬
  686.     #SUBSTITUTEWORD#=Ã=├
  687.     #SUBSTITUTEWORD#=Ä=─
  688.     #SUBSTITUTEWORD#=Å=┼
  689.     #SUBSTITUTEWORD#=Æ=╞
  690.     #SUBSTITUTEWORD#=Ç=╟
  691.     #SUBSTITUTEWORD#=È=╚
  692.     #SUBSTITUTEWORD#=É=╔
  693.     #SUBSTITUTEWORD#=Ê=╩
  694.     #SUBSTITUTEWORD#=Ë=╦
  695.     #SUBSTITUTEWORD#=Ì=╠
  696.     #SUBSTITUTEWORD#=Í=═
  697.     #SUBSTITUTEWORD#=Î=╬
  698.     #SUBSTITUTEWORD#=Ï=╧
  699.     #SUBSTITUTEWORD#=Ð=╨
  700.     #SUBSTITUTEWORD#=Ñ=╤
  701.     #SUBSTITUTEWORD#=Ò=╥
  702.     #SUBSTITUTEWORD#=Ó=╙
  703.     #SUBSTITUTEWORD#=Ô=╘
  704.     #SUBSTITUTEWORD#=Õ=╒
  705.     #SUBSTITUTEWORD#=Ö=╓
  706.     #SUBSTITUTEWORD#=×=╫
  707.     #SUBSTITUTEWORD#=Ø=╪
  708.     #SUBSTITUTEWORD#=Ù=┘
  709.     #SUBSTITUTEWORD#=Ú=┌
  710.     #SUBSTITUTEWORD#=Û=█
  711.     #SUBSTITUTEWORD#=Ü=▄
  712.     #SUBSTITUTEWORD#=Ý=▌
  713.     #SUBSTITUTEWORD#=Þ=▐
  714.     #SUBSTITUTEWORD#=ß=▀
  715.     #SUBSTITUTEWORD#=à=α
  716.     #SUBSTITUTEWORD#=á=ß
  717.     #SUBSTITUTEWORD#=â=Γ
  718.     #SUBSTITUTEWORD#=ã=π
  719.     #SUBSTITUTEWORD#=ä=Σ
  720.     #SUBSTITUTEWORD#=å=σ
  721.     #SUBSTITUTEWORD#=æ=µ
  722.     #SUBSTITUTEWORD#=ç=τ
  723.     #SUBSTITUTEWORD#=è=Φ
  724.     #SUBSTITUTEWORD#=é=Θ
  725.     #SUBSTITUTEWORD#=ê=Ω
  726.     #SUBSTITUTEWORD#=ë=δ
  727.     #SUBSTITUTEWORD#=ì=∞
  728.     #SUBSTITUTEWORD#=í=φ
  729.     #SUBSTITUTEWORD#=î=ε
  730.     #SUBSTITUTEWORD#=ï=∩
  731.     #SUBSTITUTEWORD#=ð=≡
  732.     #SUBSTITUTEWORD#=ñ=±
  733.     #SUBSTITUTEWORD#=ò=≥
  734.     #SUBSTITUTEWORD#=ó=≤
  735.     #SUBSTITUTEWORD#=ô=⌠
  736.     #SUBSTITUTEWORD#=õ=⌡
  737.     #SUBSTITUTEWORD#=ö=÷
  738.     #SUBSTITUTEWORD#=÷=≈
  739.     #SUBSTITUTEWORD#=ø=°
  740.     #SUBSTITUTEWORD#=ù=∙
  741.     #SUBSTITUTEWORD#=ú=·
  742.     #SUBSTITUTEWORD#=û=√
  743.     #SUBSTITUTEWORD#=ü=ⁿ
  744.     #SUBSTITUTEWORD#=ý=²
  745.     #SUBSTITUTEWORD#=þ=■
  746.     #SUBSTITUTEWORD#=ÿ= 
  747.     #SUBSTITUTEWORD#=%DF=▀
  748.     #SUBSTITUTEWORD#="="
  749.     #SUBSTITUTEWORD#=</a>= 
  750. #ENDSUBSTITUTETAGS#
  751.  
  752.  
  753.  
  754. #DELETETAGS#
  755.     #DELETEWORD#=
  756.  
  757.     #DELETEWORD#=                                
  758.  
  759.     #DELETEWORD#=    
  760. #ENDDELETETAGS#
  761.  
  762.  
  763.  
  764.  
  765.  
  766.  
  767.  
  768.  
  769.  
  770.  
  771.  
  772.  
  773.  
  774.  
  775.  
  776.  
  777.  
  778.  
  779.  
  780.  
  781.  
  782.  
  783.  
  784.  
  785.  
  786.  
  787.  
  788.  
  789.  
  790.  
  791.  
  792.  
  793.  
  794.  
  795.  
  796.  
  797.  
  798.  
  799.  
  800.  
  801.  
  802.  
  803.  
  804.  
  805.  
  806.  
  807.  
  808.  
  809.  
  810.  
  811.  
  812.  
  813.  
  814.  
  815.  
  816.  
  817.  
  818.  
  819.  
  820.  
  821.  
  822.  
  823.  
  824.  
  825.  
  826.  
  827.  
  828.  
  829.  
  830.  
  831.  
  832.  
  833.  
  834.  
  835.  
  836.  
  837.  
  838.  
  839.  
  840.  
  841.  
  842.  
  843.  
  844.  
  845.  
  846.  
  847.  
  848.  
  849.  
  850.  
  851.